{

    Dev-Tux is a C++ IDE made to be like Dev-C++ for linux
    Copyright (C) 2011  Ryan Riffle

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>

}
unit dialogProject;

{$mode objfpc}

interface

uses
  Classes, SysUtils, simpleipc, FileUtil, LResources, Forms, Controls, Graphics,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, SynMemo;
type

  { TdlgNewProject }

  TdlgNewProject = class(TForm)
    bttnAccept: TButton;
    bttnCancel: TButton;
    editProjectName: TLabeledEdit;
    ListView1: TListView;
    Panel1: TPanel;
    Splitter1: TSplitter;
    TreeView1: TTreeView;
    procedure bookEditorChangeBounds(Sender: TObject);
    procedure bttnAcceptClick(Sender: TObject);
    procedure bttnCancelClick(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    hasClickedBttn: Integer;
  end; 

var
  dlgNewProject: TdlgNewProject;

implementation

{ TdlgNewProject }

procedure TdlgNewProject.bookEditorChangeBounds(Sender: TObject);
begin

end;

procedure TdlgNewProject.bttnAcceptClick(Sender: TObject);
begin
     hasClickedBttn := 1;
end;

procedure TdlgNewProject.bttnCancelClick(Sender: TObject);
begin
  hasClickedBttn := 0;
  Close;
end;

procedure TdlgNewProject.Panel1Click(Sender: TObject);
begin

end;

initialization
  {$I dialogproject.lrs}

end.

